home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / actio / Wreckage_src.lha / Source / Assembly / Backup / asm_rot_A3.asm < prev    next >
Assembly Source File  |  1998-06-30  |  563b  |  34 lines
  1. _rot_loop3:
  2.  
  3.   MOVE.b (a2)+,d1
  4.   BEQ _rot_loop3a
  5.  
  6.   MOVE.l (a0),d1     ;d1=ox(n)
  7.   CLR.w d1
  8.   SWAP d1
  9.  
  10.   MOVE.w d1,d2          ;d2=x
  11.   MULS.w d6,d1          ;x*csa
  12.  
  13.   MULS.w d7,d2          ;x*sna
  14.  
  15.  
  16.   MOVE.l (a1),d3        ;oy(n)
  17.   CLR.w d3
  18.   SWAP d3
  19.  
  20.   MOVE.w d3,d4          ;y
  21.   MULS.w d7,d3          ;y*sna
  22.  
  23.   SUB.l d3,d1           ;x*csa-y*sna
  24.  
  25.   MULS.w d6,d4          ;y*csa
  26.  
  27.   ADD.l d2,d4           ;y*csa+x*sna
  28.  
  29. _rot_loop3a:
  30.   MOVE.l d4,(a1)+       ;y(n)=y*csa+x*sna
  31.   MOVE.l d1,(a0)+       ;x(n)=x*csa-y*sna
  32.   SUBQ.l #1,d0          ;n=n-1
  33.   BGE _rot_loop3
  34.